//declare a classclass ckPerson	//properties are declared before methods	public property name as string	//a class method does not have to be predeclared	//may change in the future	public sub setname(s as string)		//me is the an intrinsic instance of this		//object at runtime. Currently is the only way		//to access an objects members		me.name = s	end sub	public sub addfriend(p as ckperson)		msgbox(me.name & " and " & p.getname & " are friends")	end sub	//a function must indicate its datatype	public function getname() as string		return me.name	end functionend class